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Set time to user-specified time 16-50 ~3007 138% tA 03 se tats 


ATITLE ‘Set Sige to user-specified time’ 
MODULE SET tim 
© DENT = 'v04-000' 
%BL1ISS32C 
ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


) 2s 
BEGIN 


PETITILILILILLL ILI LLL LLL LILI LiL LiL Liililiiliiitiiiiiiii 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT ¢ €ORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 
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' N NOTICE. "So TWARE 0 * 
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. *® 
'® TRANSFERRED * 
° ® 
's THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
* *® 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Sets the time to a user-specified time. 
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v04- Revision History 14-Sep-1984 13:08:09 
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RUNOFF .SRCIJSETTIM.BLI; 


; te 43 ] XSBTTL "Revision History’ 

; 46 43 i MODIFIED BY: 

; 48 23 1/ 002 REMO0002 Ray Marshall 07-Mar-1983 

3; 6 (64 rk 1! Global edit of all modules. Updated module names, idents, 
; 3} rs ! } copyright dates. Changed require files to BLISS library. 
:. oe 051 1 i-- 
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13788-1382 tae 3 RUNOFF SREISEST IA: OL 104 


XSBTTL "Module Level Declarations' 
TABLE OF CONTENTS: 


. 
' 
. 
| 
. 
' 
. 
' 
. 
' 


INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
XIF DSRPLUS XTHEN 

,peRer’ REQ:DPLLIB'; ! DSRPLUS BLISS Library 
bZGRARY *REQ:DSRLIB'; ! DSR BLISS Library 

! 

MACROS 

MA 


CRO 
DOPARM (P,MAX) = 
'Process this parameter only if it was specified. 


«NMLST_DESCR (P) NEQ NM_NULL 
THEN 

ere 

-NMLST_DESCR (P) EQL NM_PLUS 
en -NMCST_DESCR (P) EQL”NM_MINUS 

TEMP_DATIM C2+P] = .TEMP_DATIM C2+P] + .NMLST_VALUE (P) 
TEMP_DATIM C2+P] = .NMLST_VALUE (P); 

check for negative or GTR MAX value 


.TEMP_ DATIM [2+P] LSS 0 ! 
, OR .TEMP_DATIM C2+P] GTR MAX ! 


'ILlegal number value. 
ERMA (RNFINM, FALSE); 
RETURN; 


N 
END %; 
EQUATED SYMBOLS: 


OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL 
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SETTIM Set time to user-specified time 16-Sep-1984 47:05 AX-11 Bliss-32 V4.0-74 
Vv “300 SETTIM == 137808-1 382 % 08 3 RUNOFF SREISETTIA OL 1 04 
: 128 5 1 SSBTTL 'SETTIM --' 
3 } 2 § } GLOBAL ROUTINE settim (handler_code) : NOVALUE = ! 
s 13) 8 1 !44 
3 } ¢ 8 2 : } FUNCTIONAL DESCRIPTION: 
; (134 61 1! SETTIM calls GLNM to pick up the hours, minutes, and seconds, in that order. 
3 : 5 66 ! If the user says nothing, then the time is set to the system time. 
3 : ? ee : } FORMAL PARAMETERS: 
; 139 6 08 1; HANDLER_CODE is not examined. It is pepsed to this routine 
; 140 of 1! for reasons of conformity only. It will always have the 
; 123 8 28 : value H_SET_TIME. 
3 128 8 70 1°! IMPLICIT INPUTS: None 
3: 144 4 te Le 
> «6145 0 Lg: 1 ! IMPLICIT OUTPUTS: None 
3 148 02735 1! 
; 146 0274 1 ! ROUTINE value: 
: «148 0275 1 ! COMPLETION CODES: None 
: 149 0276 1! 
3; 199 0277 1°! SIDE EFFECTS: None 
3 13) 0278 1! 
; 136 0279 1 !-- 
; 0280 1 
; «6154 0281 BEGIN 
s 935 0 8 
; 156 028 LOCAL 
3 4 0 Se temp_datim : VECTOR (6); 
; + +4 Hy] ginm (3); 'Request hours, minutes, and seconds. 
3; 161 88 IF .nmmlst_count EQL 0 THEN 
3 166 89 BEGIN 
s 1 90 'Get entire system date/time. 
: «164 8 91 rnodat (temp_datim); 
3; «6165 3 'Save j ; the system time part. 
; 166 S dattim = ,temp_datim (3); ‘Hours 
: 167 9h dattim [4] = .temp_datim (4); ‘Minutes 
; 168 95 dattim (5) = .temp_datim (5); 'Seconds 
3 19° 38 RETURN; 
; 19 ; END; 
: He 235 ‘Assume the most conpl icated case: that the user is 
3; (17 00 tadjusting settings by adding/subtracting values. 
3 «174 01 'Make a Gop f the current ime. 
: #175 § temp_datim [3] = .dattim 3 ‘Hours 
3 176 temp_datim [4] = .dattim (4); ‘Minutes 
3 1? : temp_datim (5) = .dattim (5J; 'Seconds 
: 179 $ 'Validate the hours, if given 
3 139 doparm (1,23); ‘First parameter can have a maximum value of 23 
£34 § 09 'Validate the minutes, if given 
4 10 if .nmlst_c unt Ged é THEN 
a 11 doparm (3-5 ); ‘Second paramater can have a maximum value of 59 
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‘Validate the seconds 
quspere $ 


uted time curren 
.temp_datim 
-temp_datim 
.temp_datim 
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'Maixmum of 59 seconds. 


'End of SETTIM 


SETTIM Set time to user-specified time 


\V04-000\ 


DATTIM, NMLST, RNFINM 
ERMA, GLNM, RNODAT 


SCODES ,NOWRT ,2 


SETTIM, Save R2,R3 
BATTING 13, R3 
NM R 


LST 
¢. §p 
#1, GLNM 
NMLST 
1$ 
SP 
#1, RNODAT 
14$ 
DATTIM#12, TEMP_DATIM+12 
DATTIM+20, TEMP_DATIM+20 
NMLST+164, RO 
5$ 
RO, #2 
RO. #3 
hla TEMP_DATIM+12 
NMLST#4, TEMP_DATIM+12 
IRAP _DATING12, #23 
NMLST, #2 
LST +168. RO 
RO. #2 
RO, #3 
NMLST+8, TEMP_DATIM*+16 
NMLST+8, TEMP_DATIM+16 


See Se Se Se Se Se Se Se Se Se Se Be Se Ge Se Be Ge Se Se Be Se Se Se Se Se Se Be Sete Ge Se Se Be Se Be 


H 5 
SETTIM Set time to user-specified time 16-Sep-1984 01:47:05 AX-11 Bliss-32 V4.0-74 
v54-009 SETTIM == . 1er8ee-138S 3:6Ri08  EAUNor SAR Ssesrincor, 
30 19 7C 8$: BLSS 13$ 
38 10 AE 01 7 CMPL IGGP-PATIAGTG, #59 
A 14 BGTR 15$ 
03 D1 9$ CMPL wast. a3 
19 7 BLSS 14 
50 OOAC 0 9 MOVL wh, ST#172, RO 
BEQL 14 
02 o CMP Re i 
1 9 BEQL «=s«d108 
03 9 D1 494 CMPL RO, #3 
0 \8 098 BNEG } =s-:'1:18 
14 AE 0c Ag f BRR A 10$: ADDL2 NMLST+12, TEMP_DATIM+20 
0 1 oF BRB 
14 AE OC A2 08 OOA1 11$: MOVL NMLST+12, TEMP_DATIM+20 
06 1 BRAS 128: BLSS 
38 14 AE 01 QOOA CMPL TEMP_DATIM+20, #59 
10 15 QOOAC BLEQ 14$ 
7E D4 ita 138: CLRL (SP) 
000000006 8F DD 000B PUSHL #RNFINM 
00000000G_ EF 02 4 pee CALLS #2, ERMA 
63 Oc AE % 3008 14$: MOVQ TEMP_DATIM+12, DATTIM+#12 
08 A3 14 AE bd0 000C MOVL TEMP_DATIM+20, DATTIM+20 
04 000C RET 
; Routine Size: 200 bytes, Routine Base: S$CODE$S + 0000 
: 196 0323 «1 
3 197 0324 1 END 'End of module 
3; «4198 0325 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 200 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Bi ae ae ee ee ya oe ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
$ _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 : 252 00:00.3 
> 7$255$DUA28: (RUNOFF .SRCJDSRLIB.L32;1 124 11 86 :00. 
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SETTIM == . 12-808-13be 9336588 EAYNore Sab Ssesr incor 10 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETTIM/OBJ=OBJ$:SETTIM MSRC$:SETTIM/UPDATE=(ENH$: SETTIM) 
Flapsed i Tine: 


200 86. + 0 data bytes 
nes/CPU ih 


Lenenes/CPURin; 2 B84 
ory Used: 69 pages 
— ation Complete 


ptzer 
un Time 


ORATION 
IETARY 


AND PROPR 


Oo 
Oo 
Oo 
oO 
— 
= 
Lil 
= 
a 
ei 
=a 
oa 
Lu 
anal 


ENTIAL 


